home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / comp0_89.lha / Feel / Boot / Compiler / proggy.em < prev    next >
Text File  |  1993-02-02  |  397b  |  32 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: proggy.em
  4. ;; Date: Wed May  6 18:04:13 1992
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;
  9.  
  10. (defmodule proggy
  11.   (standard0
  12.    list-fns
  13.          
  14.    )
  15.   ()
  16.   
  17.   (tagbody 
  18.    top
  19.    (print 'hello)
  20.    (let ((v (lambda (x) 
  21.           (if (null x) (go base)))))
  22.      (v nil))
  23.    (print 'eek)
  24.    base
  25.    (print 'done))
  26.   
  27.  
  28.   (defmacro go (x) (*cont* ',x))
  29.  
  30.   ;; end module
  31.   )
  32.